home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Take 2 v1.7c d1.adf / Install < prev    next >
Text File  |  1992-01-17  |  4KB  |  203 lines
  1. ;Take-2 installation script.
  2. ;For use with Commodore Amiga Installer program.
  3. ;Date: 14/2/92
  4.  
  5. (set bootvolume
  6.    (getassign "SYS")
  7. )
  8.  
  9. (if (= bootvolume "Take_2:")        ;Abort if booted from Take_2
  10. (abort "ERROR: You MUST boot from the disk which you want Take-2 installed on.")
  11. )
  12.  
  13. (if (= @user-level 0)
  14.  (
  15.    (makedir "Work:Take_2"
  16.      (infos)
  17.    )
  18.    (copyfiles
  19.       (source "Take_2:")
  20.       (choices "Take_2" "SPlayer.doc" "Hints&Tips" "ScenePLayer" "Take_2.conf")
  21.       (dest "Work:Take_2/")
  22.       (infos)
  23.    )
  24.    (makedir "Work:Take_2/Pics")
  25.    (copyfiles
  26.       (source "Take_2:Pics")
  27.       (dest "Work:Take_2/Pics")
  28.       (all)
  29.       (infos)
  30.    )
  31.    (copyfiles
  32.       (source "Take_2:c/ppmore")
  33.       (dest "C:")
  34.    )
  35.    (copylib
  36.       (source "Take_2:libs/vidi.library")
  37.       (dest "LIBS:")
  38.    )
  39.    (copylib
  40.       (source "Take_2:libs/translator.library")
  41.       (dest "LIBS:")
  42.    )
  43.    (if (NOT (exists "DEVS:narrator.device"))
  44.       (copyfiles
  45.          (source "Take_2:devs/narrator.device")
  46.          (dest "DEVS:")
  47.       )
  48.    )
  49.    (if (NOT (exists "DEVS:parallel.device"))
  50.       (copyfiles
  51.          (source "Take_2:devs/parallel.device")
  52.          (dest "DEVS:")
  53.       )
  54.    )
  55.    (exit)
  56.  )
  57. )
  58.  
  59. (if (= @user-level 1)
  60.  (
  61.    (set vididir
  62.       (askdir
  63.          (prompt "Please select a directory for Take-2 files")
  64.          (help @askdir-help)
  65.          (default "Work:")
  66.       )
  67.    )
  68.    (copyfiles
  69.       (source "Take_2:")
  70.       (choices "Take_2" "SPlayer.doc" "Hints&Tips" "ScenePLayer" "Take_2.conf")
  71.       (dest vididir)
  72.       (infos)
  73.    )
  74.    (set picsdir
  75.       (askdir
  76.          (prompt "Please select a directory for Take-2 picture files")
  77.          (help @askdir-help)
  78.          (default "Work:")
  79.       )
  80.    )
  81.    (copyfiles
  82.       (source "Take_2:Pics")
  83.       (dest picsdir)
  84.       (all)
  85.       (infos)
  86.    )
  87.    (copyfiles
  88.       (source "Take_2:c/ppmore")
  89.       (dest "C:")
  90.    )
  91.    (copylib
  92.       (source "Take_2:libs/vidi.library")
  93.       (dest "LIBS:")
  94.    )
  95.    (copylib
  96.       (source "Take_2:libs/translator.library")
  97.       (dest "LIBS:")
  98.    )
  99.    (if (NOT (exists "DEVS:narrator.device"))
  100.       (copyfiles
  101.          (source "Take_2:devs/narrator.device")
  102.          (dest "DEVS:")
  103.       )
  104.    )
  105.    (if (NOT (exists "DEVS:parallel.device"))
  106.       (copyfiles
  107.          (source "Take_2:devs/parallel.device")
  108.          (dest "DEVS:")
  109.       )
  110.    )
  111.    (exit)
  112.  )
  113. )
  114.  
  115. (if (= @user-level 2)
  116.  (
  117.    (set vididir
  118.       (askdir
  119.          (prompt "Please select a directory for Take-2 files")
  120.          (help @askdir-help)
  121.          (default "Work:")
  122.       )
  123.    )
  124.    (copyfiles
  125.       (prompt "Copy which Take_2 files to " vididir "?")
  126.       (source "Take_2:")
  127.       (choices "Take_2" "SPlayer.doc" "Hints&Tips" "ScenePLayer" "Take_2.conf")
  128.       (dest vididir)
  129.       (help @copyfiles-help)
  130.       (confirm)
  131.       (infos)
  132.    )
  133.    (if (askbool
  134.           (prompt "Copy picture files to hard disk?")
  135.           (help @askbool-help)
  136.        )
  137.     (
  138.       (set picsdir
  139.          (askdir
  140.             (prompt "Please select a directory for Take-2 picture files")
  141.             (help @askdir-help)
  142.             (default "Work:")
  143.          )
  144.       )
  145.       (copyfiles
  146.          (source "Take_2:Pics")
  147.          (dest picsdir)
  148.          (all)
  149.          (infos)
  150.       )
  151.     )
  152.    )
  153.    (copyfiles
  154.       (prompt "Copy ppmore to your C: directory?")
  155.       (help @copyfiles-help)
  156.       (source "Take_2:c/ppmore")
  157.       (dest "C:")
  158.       (confirm)
  159.    )
  160.    (set copyopts
  161.       (askoptions
  162.          (prompt "Please select libraries & devices to be copied to hard disk.")
  163.          (help "Existing libraries will be overwritten by newer ones." "If devices exist already, they will be overwritten." @askoptions-help)
  164.          (choices "vidi.library" "translator.library" "narrator.device" "parallel.device")
  165.          (default 15)
  166.       )
  167.    )
  168.  
  169.    (if (IN copyopts 0)
  170.       (copylib
  171.          (source "Take_2:libs/vidi.library")
  172.          (dest "LIBS:")
  173.       )
  174.    )
  175.  
  176.    (if (IN copyopts 1)
  177.       (copylib
  178.          (source "Take_2:libs/translator.library")
  179.          (dest "LIBS:")
  180.       )
  181.    )
  182.  
  183.    (if (IN copyopts 2)
  184.       (if (NOT (exists "DEVS:narrator.device"))
  185.          (copyfiles
  186.             (source "Take_2:devs/narrator.device")
  187.             (dest "DEVS:")
  188.          )
  189.       )
  190.    )
  191.  
  192.    (if (IN copyopts 3)
  193.       (if (NOT (exists "DEVS:parallel.device"))
  194.          (copyfiles
  195.             (source "Take_2:devs/parallel.device")
  196.             (dest "DEVS:")
  197.          )
  198.       )
  199.    )
  200.    (exit)
  201.  )
  202. )
  203.